home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v10n18.arc / LN1018.ARC / NOTEPAD < prev    next >
Text File  |  1991-10-30  |  1KB  |  33 lines
  1. REM Notepad -- demonstrates Shell and SendKeys
  2.  
  3. Sub MAIN
  4.     name$ = "tmp.tmp"
  5.     If Files$(name$) <> "" Then     ' If file already exists...
  6.         QuestionIcon = 32
  7.         OkCancel = 1
  8.         Ok = -1
  9.         ' Elsewhere in article we've used the MsgBox statement.
  10.         ' The line above uses the MsgBox() function, which returns
  11.         ' the magic number of the button the user pushed. 
  12.         If MsgBox("Delete " + name$, QuestionIcon + OkCancel) = Ok Then
  13.             On Error Goto ErrorTrap ' watch for strange WinWord behavior
  14.             Kill name$              ' if user says ok, then delete it
  15.             On Error Goto 0         ' reset normal error processing 
  16.         Else
  17.             Goto done               ' otherwise do nothing
  18.         End If
  19.     End If
  20.     On Error Goto done
  21.     s$ = InputBox$("Type some stuff to send to Notepad")
  22.     Shell "notepad"         ' run Notepad
  23.     Wait = -1               ' wait for Notepad to process keystrokes 
  24.     SendKeys s$ + "~", Wait ' send the string of text
  25.     SendKeys "%FA" + name$ + "~", Wait  ' Alt-F A: File Save As...
  26.     SendKeys "%FX", Wait                ' Alt-F X: File Exit
  27.     Goto done
  28. ErrorTrap:
  29.     MsgBox "WinWord has problems deleting " + name$ + "." + \
  30.         "Please close the file, clear your clipboard, and try again."
  31. done:
  32. End Sub
  33. «MDNM»